home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
tptc16.zip
/
SIEVE.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-01-04
|
792b
|
41 lines
program Sieve;
(*
Sieve of Eratosthenes
*)
const
Size = 8190;
var
Flags : array[0..Size] of Boolean;
Prime, K, Count : Integer;
Inter, I : Integer;
begin
WriteLn('Sieve of Eratosthenes...');
Write('50 iterations');
WriteLn;
for Inter := 1 to 50 do
begin
Count := 0;
for I := 0 to Size do
Flags[I] := True;
for I := 0 to Size do
begin
if (Flags[I]) then
begin
Prime := I+I+3;
K := I+Prime;
while (K <= Size) do
begin
Flags[K] := False;
K := K+Prime;
end;
Count := Count+1;
end;
end;
end;
WriteLn(Count, ' primes');
end.